home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr01 / jock.zip / TOTDEM11.ZIP / DEMOV1.PAS < prev    next >
Pascal/Delphi Source File  |  1991-02-11  |  625b  |  32 lines
  1. program DemoOverlay1;
  2.  
  3. Uses OVERLAY, DOS, CRT,
  4.      OV1Init, totSYS, totLOOK, totINPUT, totFAST, totWIN,
  5.      totIO1, totMSG;
  6.  
  7. {$O totSYS}
  8. {$O totLOOK}
  9. {$O totINPUT}
  10. {$O totFAST}
  11. {$O totWIN}
  12. {$O totIO1}
  13. {$O totMSG}
  14.  
  15. Var
  16.    MsgWin : MessageOBJ;
  17. begin
  18.    Screen.Clear(white,'░'); {paint the screen}
  19.    with MsgWin do
  20.    begin
  21.       Init(1,' Message ');
  22.       AddLine('');
  23.       AddLine('The message unit provides a');
  24.       AddLine('very easy way of displaying');
  25.       AddLine('pop-up messages in a move-');
  26.       AddLine('able window.');
  27.       AddLine('');
  28.       Show;
  29.       Done;
  30.    end;
  31. end.
  32.